Visual Basic Toolbox/Visual Basic Toolbox (P.I.E.)(1996).ISO/printing/ddrvprev/rvtest.frm

Visual Basic Form | 1995-12-09 | 24.0 KB | 678 lines

VERSION 2.00
Begin Form Form1
   BackColor       =   &H00C0C0C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Test DDRV.DLL"
   ClientHeight    =   5055
   ClientLeft      =   1680
   ClientTop       =   1530
   ClientWidth     =   8160
   Height          =   5460
   Left            =   1620
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5055
   ScaleWidth      =   8160
   Top             =   1185
   Width           =   8280
   Begin Frame Frame5
      BackColor       =   &H00C0C0C0&
      Caption         =   "Edit Box"
      Height          =   2400
      Left            =   195
      TabIndex        =   22
      Top             =   2445
      Width           =   2355
      Begin CommandButton btnShow
         BackColor       =   &H00000000&
         Caption         =   "Show"
         Height          =   405
         Left            =   1170
         TabIndex        =   25
         Top             =   1935
         Width           =   1005
      End
      Begin CommandButton btnNoLines
         BackColor       =   &H00000000&
         Caption         =   "No. Lines"
         Height          =   405
         Left            =   165
         TabIndex        =   24
         Top             =   1935
         Width           =   1020
      End
      Begin TextBox txtEditBox
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   1605
         Left            =   165
         MultiLine       =   -1  'True
         TabIndex        =   23
         Text            =   "This is some text that wraps around in an edit box. DDRV.DLL has functions to return the contents of a line in the edit box and the number of lines in the box."
         Top             =   345
         Width           =   2010
      End
   End
   Begin Frame Frame2
      BackColor       =   &H00C0C0C0&
      Caption         =   "Window && Grapics"
      Height          =   2940
      Left            =   2685
      TabIndex        =   16
      Top             =   585
      Width           =   3180
      Begin CheckBox chkDeleteTemp
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Delete the temp file"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   30
         Top             =   1860
         Value           =   1  'Checked
         Width           =   2200
      End
      Begin CommandButton btnFloat
         BackColor       =   &H00000000&
         Caption         =   "Float It"
         Height          =   435
         Left            =   1635
         TabIndex        =   28
         Top             =   2385
         Width           =   1365
      End
      Begin CommandButton btnHandle
         BackColor       =   &H00000000&
         Caption         =   "Viewer hWnd"
         Height          =   435
         Left            =   135
         TabIndex        =   27
         Top             =   2385
         Width           =   1365
      End
      Begin CheckBox chkHideDefault
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Hide Default Printer Button"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   26
         Top             =   1620
         Width           =   2200
      End
      Begin CheckBox chkAltHints
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Alternate Buttons"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   21
         Top             =   660
         Width           =   2200
      End
      Begin CheckBox chkControlBox
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Show Control Box"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   20
         Top             =   420
         Width           =   2200
      End
      Begin CheckBox chkViewFirst
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "View First"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   19
         Top             =   900
         Value           =   1  'Checked
         Width           =   2200
      End
      Begin CheckBox chkMagnify
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Show Magnify "
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   18
         Top             =   1140
         Value           =   1  'Checked
         Width           =   2200
      End
      Begin CheckBox chkPrintSelect
         Alignment       =   1  'Right Justify
         BackColor       =   &H00C0C0C0&
         Caption         =   "Show Print Select"
         FontBold        =   0   'False
         FontItalic      =   0   'False
         FontName        =   "MS Sans Serif"
         FontSize        =   8.25
         FontStrikethru  =   0   'False
         FontUnderline   =   0   'False
         Height          =   225
         Left            =   420
         TabIndex        =   17
         Top             =   1380
         Value           =   1  'Checked
         Width           =   2200
      End
   End
   Begin CommandButton btnTest
      BackColor       =   &H00000000&
      Caption         =   "&Test"
      Height          =   495
      Left            =   6090
      TabIndex        =   15
      Top             =   3660
      Width           =   1905
   End
   Begin Frame Frame1
      BackColor       =   &H00C0C0C0&
      Caption         =   "Window State"
      Height          =   1755
      Left            =   195
      TabIndex        =   11
      Top             =   615
      Width           =   2340
      Begin OptionButton optMinMax
         BackColor       =   &H00C0C0C0&
         Caption         =   "Normal"
         Height          =   195
         Index           =   0
         Left            =   420
         TabIndex        =   14
         Top             =   540
         Value           =   -1  'True
         Width           =   1350
      End
      Begin OptionButton optMinMax
         BackColor       =   &H00C0C0C0&
         Caption         =   "Minimized"
         Height          =   195
         Index           =   1
         Left            =   420
         TabIndex        =   13
         Top             =   915
         Width           =   1410
      End
      Begin OptionButton optMinMax
         BackColor       =   &H00C0C0C0&
         Caption         =   "Maximized"
         Height          =   195
         Index           =   2
         Left            =   420
         TabIndex        =   12
         Top             =   1275
         Width           =   1380
      End
   End
   Begin CommandButton btnDone
      BackColor       =   &H00000000&
      Caption         =   "&Done"
      Height          =   495
      Left            =   6075
      TabIndex        =   10
      Top             =   4350
      Width           =   1905
   End
   Begin Frame Frame3
      BackColor       =   &H00C0C0C0&
      Caption         =   "Orientation"
      Height          =   1260
      Left            =   2685
      TabIndex        =   7
      Top             =   3585
      Width           =   3195
      Begin OptionButton optOrentation
         BackColor       =   &H00C0C0C0&
         Caption         =   "Portrait"
         Height          =   240
         Index           =   0
         Left            =   540
         TabIndex        =   9
         Top             =   420
         Value           =   -1  'True
         Width           =   1440
      End
      Begin OptionButton optOrentation
         BackColor       =   &H00C0C0C0&
         Caption         =   "Landscape"
         Height          =   240
         Index           =   1
         Left            =   540
         TabIndex        =   8
         Top             =   780
         Width           =   1425
      End
   End
   Begin Frame Frame4
      BackColor       =   &H00C0C0C0&
      Caption         =   "Initial Zoom State"
      Height          =   2925
      Left            =   6015
      TabIndex        =   2
      Top             =   570
      Width           =   1950
      Begin CommandButton btnKill
         BackColor       =   &H00000000&
         Caption         =   "Kill Viewer"
         Height          =   435
         Left            =   300
         TabIndex        =   29
         Top             =   2310
         Width           =   1365
      End
      Begin OptionButton chkZoom
         BackColor       =   &H00C0C0C0&
         Caption         =   "100%"
         Height          =   270
         Index           =   0
         Left            =   390
         TabIndex        =   6
         Top             =   450
         Width           =   1380
      End
      Begin OptionButton chkZoom
         BackColor       =   &H00C0C0C0&
         Caption         =   "75%"
         Height          =   270
         Index           =   1
         Left            =   375
         TabIndex        =   5
         Top             =   915
         Width           =   1380
      End
      Begin OptionButton chkZoom
         BackColor       =   &H00C0C0C0&
         Caption         =   "50%"
         Height          =   270
         Index           =   2
         Left            =   390
         TabIndex        =   4
         Top             =   1380
         Width           =   1380
      End
      Begin OptionButton chkZoom
         BackColor       =   &H00C0C0C0&
         Caption         =   "Zoom to fit"
         Height          =   270
         Index           =   3
         Left            =   390
         TabIndex        =   3
         Top             =   1830
         Value           =   -1  'True
         Width           =   1380
      End
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Copyright 1995, Don Dickinson - 72762,645 on CompuServe"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FFFFFF&
      Height          =   360
      Index           =   0
      Left            =   -30
      TabIndex        =   0
      Top             =   120
      Width           =   8205
      WordWrap        =   -1  'True
   End
   Begin Label Label1
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00FFFFFF&
      Height          =   360
      Index           =   1
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   8190
      WordWrap        =   -1  'True
   End
Option Explicit
Sub btnDone_Click ()
    End
End Sub
Sub btnFloat_Click ()
    Dim hWnd%
' -- Get the viewer handle
    hWnd% = rvGetHandle()
' -- Check to see if the viewer exists
    If rvViewerActive(hWnd%) <> 0 Then
        MsgBox "There is no viewer"
    Else
        ' If it exists, float the window
        Call rvFloatViewer(hWnd%, 1)
    End If
End Sub
Sub btnHandle_Click ()
    Dim hWnd%
' -- Get the handle for the viewer
    hWnd% = rvGetHandle()
' -- Check to see if the handle is valid
    If rvViewerActive(hWnd%) <> 0 Then
        MsgBox "There is no viewer"
    Else
        MsgBox "The Viewer handle is" & Str$(hWnd%)
    End If
' -- Check for the close handle
    hWnd% = rvGetCloseHandle()
    If hWnd% > 0 Then
        MsgBox "The close handle is:" & Str$(hWnd%)
    Else
        MsgBox "Couldn't get the close handle"
    End If
End Sub
Sub btnKill_Click ()
    Dim hWndClose%
    hWndClose% = rvGetCloseHandle()
    If hWndClose% > 0 Then Call rvKillViewer(hWndClose%)
    DoEvents
End Sub
Sub btnNoLines_Click ()
    Dim a&, Which&
    Dim Buffer As String * 1000
' -- Get the number of lines in the edit box
    Which& = 0
    ' If we pass Which& = 0 then after the call
    ' Which& will contain the number of lines
    ' in the edit box. The Buffer parameter is
    ' unused in this call.
    rvGetEditBoxLine txtEditBox.hWnd, Which&, Buffer
    MsgBox "The edit box contains" & Str$(Which&) & " Lines."
End Sub
Sub btnShow_Click ()
    Dim a&, HowManyLines&, WhichLine&
    Dim Buffer As String * 1000
    Buffer = Space$(1000)
' -- Get the number of lines in the edit box
    HowManyLines& = 0
    ' If we pass Which& = 0 then after the call
    ' Which& will contain the number of lines
    ' in the edit box. The Buffer parameter is
    ' unused in this call.
    rvGetEditBoxLine txtEditBox.hWnd, HowManyLines&, Buffer
    MsgBox "No Lines:" & Str$(HowManyLines&)
' -- Show the contents of each line
    For a& = 1 To HowManyLines&
        ' Make the call to get the contents
        ' of the a&th line in the edit box.
        ' The Buffer parameter will return
        ' containing the contents of the
        ' edit box line. The idx& parameter will
        ' contain the number of characters in
        ' the line. You must make sure that
        ' Buffer is "pre-dimmed" to hold
        ' enough characters - 1000 is a safe
        ' bet.
        WhichLine& = a&
        rvGetEditBoxLine txtEditBox.hWnd, WhichLine&, Buffer
        MsgBox Left$(Buffer, WhichLine&)
    Next a&
End Sub
Sub btnTest_Click ()
    Dim Title$, GraphicFile$, a%, e%
    Dim DisplayCtlBox%, MinMaxOrLeft%
    Dim TheOptions%, ViewOrPrint%
    Dim b&, HowManyLines&, WhichLine&
    Dim Buffer As String * 1000
    Dim Tempfile As String * 129
    Dim cy!, lh!    'cy! will be used to track the current
                    'y position on the page when printing
                    'lines of text. lh! is the height
                    'of the line feed in inches
    lh! = .2
    Title$ = "Test RV"
' -- Setup the page orientation
    If optOrentation(0).Value = True Then
        TheOptions% = RV_PORTRAIT
    Else
        TheOptions% = RV_LANDSCAPE
    End If
' -- Check for magnify glass
    If chkMagnify.Value = 1 Then TheOptions% = TheOptions% + RV_MAGNIFY
' -- Check for allowing printer/page selection common dialog
    If chkPrintSelect = 1 Then TheOptions% = TheOptions% + RV_PRINTSELECT
' -- Check if we delete the temp file
    If chkDeleteTemp.Value = 0 Then TheOptions% = TheOptions% + RV_SAVETEMPFILE
' -- Check the zoom level
    If chkZoom(0).Value = True Then
        TheOptions% = TheOptions% + RV_ZOOM100
    ElseIf chkZoom(1).Value = True Then
        TheOptions% = TheOptions% + RV_ZOOM75
    ElseIf chkZoom(2).Value = True Then
        TheOptions% = TheOptions% + RV_ZOOM50
    Else
        TheOptions% = TheOptions% + RV_ZOOMFIT
    End If
' -- Check to see if we want to hide the default printer button
    If chkHideDefault = 1 Then TheOptions% = TheOptions% + RV_HIDEDEFPRINTER
' -- Check if we need to view first or just print
    If chkViewFirst.Value = 1 Then
        ViewOrPrint% = RV_VIEWFIRST
    Else
        ViewOrPrint% = RV_JUSTPRINT
    End If
' -- Initialize the viewer
    a% = rvInit(Form1.hWnd, Title$, ViewOrPrint%, RV_INCH, TheOptions%)
' -- Set the name, style and size of the font.
'    This should be done right after you
'    initialize the viewer, every time you
'    initialze the viewer, as the initial
'    values of the font properties can cause
'    some weird things to happen.
'    In addition, if you are allowing the user
'    to print a range of pages, you should
'    initialize the name, size, and style
'    after each rvNewPage call, or the same
'    type of uninitialed font property
'    weirdness will occur.
    rvFontStyle RV_FONTBOLD Or RV_FONTITALIC
    rvFontSize 12
    rvFontName "Arial"
' -- Should we show the control box?
    If chkControlBox.Value = 1 Then
        DisplayCtlBox% = RV_CTLBOX
    Else
        DisplayCtlBox% = RV_NOCTLBOX
    End If
' -- If we want the screen to be minimized or maximized,
'    we indicate this by passing a special constant in
'    the X parameter.
    If optMinMax(0).Value = True Then
        MinMaxOrLeft% = 10
    ElseIf optMinMax(1).Value = True Then
        MinMaxOrLeft% = RV_MINIMIZE
    Else
        MinMaxOrLeft% = RV_MAXIMIZE
    End If
' -- Do we
' -- Set the viewer's initial position
'    start position (or min, max )
'    width = 600 pixels
'    height = 450 pixels
'    Show the control box (yes or no)
    rvViewerPos MinMaxOrLeft%, 10, 600, 450, DisplayCtlBox%
' -- Set some alternate captions for the buttons if requested
    If chkAltHints.Value = 1 Then
        rvButtons 84, 10, App.Path & "\ALT_TOOL.BMP"
        rvButtonCaption RV_BTN_EXIT, "Alt Exit Hint"
        rvButtonCaption RV_BTN_PREV, "Alt Prev Hint"
        rvButtonCaption RV_BTN_NEXT, "Alt Next Hint"
        rvButtonCaption RV_BTN_PRINT, "Alt Print Hint"
        rvButtonCaption RV_BTN_CHOOSEPRINT, "Alt Printer Hint"
        rvButtonCaption RV_CBO_ZOOM, "Alt Zoom Hint"
    End If
' -- Place a graphic on the screen
    GraphicFile$ = App.Path & "\ddrv.bmp"
    rvGraphic GraphicFile$, 1, 1, 5, 3.5
' -- Print some sideways text
    rvFontSize 36
    rvFontStyle RV_FONTBOLD
    rvAngleText 8, 1, 270, "DDRV Print Preview Shareware" + Chr$(0)
    rvFontSize 14
    rvFontStyle RV_FONTNORMAL
' -- Line feed a paragraph directly from the edit box.
'    this is a fairly accurate method for printing
'    paragraphs of text out to the viewer. Set the
'    fontname, size, etc. of the edit box to be
'    the same as the rvFontName, etc. Then set the
'    width of the viewer to be the width you
'    want the text to fit in.
'    ----
'    in "real" applications you would want to
'    create an invisible multi-line edit box
'    for use in printing like this.
    On Error Resume Next
    ' Hard coding a font name is a dangerous thing.
    ' if you assign an invalid name to a control
    ' you get a runtime error
    txtEditBox.FontName = "Arial"
    txtEditBox.FontSize = 14
    On Error GoTo 0
    DoEvents
' -- Get the number of lines in the edit box
    Buffer = Space$(1000)
    HowManyLines& = 0
    'This call returns the number of lines in txtEditBox
    'in the HowManyLines& parameter.
    rvGetEditBoxLine txtEditBox.hWnd, HowManyLines&, Buffer
' -- Print the contents of each line
    cy! = 7.75 'This is the starting Y position on the page
    For b& = 1 To HowManyLines&
        WhichLine& = b&
        'This function returns the contents of the
        'line (WhichLine&) in txtEditBox in the
        'string Buffer. WhichLine& returns containing
        'the character count in Buffer.
        rvGetEditBoxLine txtEditBox.hWnd, WhichLine&, Buffer
        rvText 1, cy!, RV_LEFT, Left$(Buffer, WhichLine&)
        cy! = cy! + lh!
    Next b&
' -- for my final trick - some text at lots of angles
    rvFontSize 12
    For a% = 0 To 360 Step 72
        rvAngleText 4, 6, a%, "This is some text at weird angles"
    Next a%
' -- Call a new page
    rvNewPage
' -- Set the font attributes for the new page
'    REMEMBER to do this after rvInit and
'    after each call to rvNewPage !!
    rvFontName "Arial"
    rvFontSize 10
    rvFontStyle RV_FONTBOLD
' -- Print out some text
    rvText 4.25, .5, RV_CENTER, "Text can be printed in any position and alignment"
' -- Change the font size and style and print more text
    rvFontSize 12
    rvFontStyle RV_FONTNORMAL
    rvText .5, .5, RV_LEFT, "(.5, .5) is this position"
    If (TheOptions% And RV_PORTRAIT) = RV_PORTRAIT Then
        rvText .5, 10.5, RV_LEFT, "(.5, 8) is this position"
        rvText 8, .5, RV_RIGHT, "(8, .5) is this position"
        rvText 8, 10.5, RV_RIGHT, "(8, 10.5) is this position"
    Else
        rvText .5, 8, RV_LEFT, "(.5, 10.5) is this position"
        rvText 10.5, .5, RV_RIGHT, "(10.5, 0) is this position"
        rvText 10.5, 8, RV_RIGHT, "(10.5, 8) is this position"
    End If
' -- Change the font size and style
    rvFontSize 10
    rvFontStyle RV_FONTBOLD
' -- Show the different alignments
    rvText 4, 3, RV_LEFT, "Left Text - 4 inches"
    rvText 4, 3.2, RV_RIGHT, "Right Text - 4 inches"
    rvText 4, 3.4, RV_CENTER, "Center Text - 4 inches"
    rvText 4, 3.6, RV_DECIMAL, "Decimal (4 inches) $90.00"
' -- Draw a fine line (horizontal)
    rvLine 1, 3, 7, 3, 0
' -- Draw a 1 point line (vertical)
    rvLine 4, 1, 4, 6, 1
' -- Start a new page
    rvNewPage
' -- Change the font style back to normal
    rvFontName "Arial"
    rvFontStyle RV_FONTNORMAL
' -- Change Font Size to 24 point
    rvFontSize 24
' -- Print the text again
    rvText 4.25, .5, RV_CENTER, "Some Bitmaps"
' -- Draw a rectangle
    rvRect .5, 6.5, 4.5, 8.5, 2, RV_CLEARBACK
' -- Draw a graphic a few times, stretch it different ways
    GraphicFile$ = App.Path & "\test.bmp"
    rvGraphic GraphicFile$, .5, .5, 1, 1
    rvGraphic GraphicFile$, 1, 2, 4, 5
    rvGraphic GraphicFile$, 7, 7, 8, 8
    rvGraphic GraphicFile$, 1, 7, 4, 8
    rvGraphic GraphicFile$, 6, 1, 7, 5
    rvRect 6, 1, 7, 5, 2, RV_GREYBACK
    rvFontSize 16
    rvParagraph 5, 6, 7, 9, "This is a whole big line of word-wrapped text. It is wrapped using the rvParagraph command."
' -- Get the name of the temp file
'    this is not used right now, but sometimes
'    it is nice to know. You don't need to call
'    this unless you want to know the name of the
'    page description file.
    e% = rvWhatIsTempFile(Tempfile)
    MsgBox "A page description temp file has been created: " + Chr$(13) + Chr$(10) + Left$(Tempfile, e) + Chr$(13) + Chr$(10) + " The viewer will now start."
' -- End the document
    rvEndDoc
End Sub